EXTERNAL RECURSIVE PROCEDURE ALPRIN(RANY S);
EXTERNAL SIMPLE PROCEDURE PRCRLF;
EXTERNAL SIMPLE STRING PROCEDURE CVRAD(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVDEG(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVGX(REAL R);
EXTERNAL INTEGER PSPCIX;

REQUIRE "ALPRIN.REL[AL,HE]" LOAD_MODULE;